note
	description: "Summary description for {MIRAGE}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	MIRAGE

create
	crear_Mirage

feature --atributos
	modulo:MC72

feature --Constructor

	crear_Mirage  --Constructor de la clase, inicializa todos los atributos por defecto

		do
			modulo.crear_MC72
		end

feature -- Metodos de clase

	atacar_Objetivo(objetivo: STRING)
		LOCAL
			flag: INTEGER
			fallaPreparar: BOOLEAN
			intentosApuntar: INTEGER
		do
			flag := 0
			if(not fallaPreparar)
				then
					modulo.Preparar_Misil()
					flag := 1
					modulo.Apuntar_Misil(objetivo)
					flag := 2
					modulo.Lanzar_Misil()
				end
			rescue
				if(flag = 0)
				then
					falloPreparar := true
					retry
				end
			if(flag = 1)
				then
					intentosApuntar := intenrosApuntar + 1
					if( (intentosApuntar) <= 5) then
						retry
					end
				end
			end


end

